﻿Public Class SocioBuscar
    Dim consulta As New consultas
    Private Sub SocioBuscar_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'TPI_PAVDataSet.socio' Puede moverla o quitarla según sea necesario.
        Me.SocioTableAdapter.Fill(Me.TPI_PAVDataSet.socio)
        Me.dgvSocios.DataSource = consulta.Consultar("socio")
    End Sub

    Private Sub dgvSocios_CellDoubleClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvSocios.CellDoubleClick

        frmSocio.txtNroSocio.Text = Me.dgvSocios.Rows(e.RowIndex).Cells(0).Value
        frmSocio.txtApellido.Text = Me.dgvSocios.Rows(e.RowIndex).Cells(1).Value
        frmSocio.txtNombre.Text = Me.dgvSocios.Rows(e.RowIndex).Cells(2).Value
        frmSocio.txtNroDoc.Text = Me.dgvSocios.Rows(e.RowIndex).Cells(3).Value
        frmSocio.cmbTipoDoc.Text = Me.dgvSocios.Rows(e.RowIndex).Cells(4).Value
        frmSocio.dtpFechaNac.Text = Me.dgvSocios.Rows(e.RowIndex).Cells(5).Value

        Dim direResultado As New Data.DataTable

        direResultado = consulta.ConsultarTablaXId("direccion", dgvSocios.Rows(e.RowIndex).Cells(6).Value)

        frmSocio.txtCalle.Text = direResultado.Rows(0)(1)
        frmSocio.txtNro.Text = direResultado.Rows(0)(2)
        frmSocio.txtCodPostal.Text = direResultado.Rows(0)(3)
        frmSocio.txtDpto.Text = direResultado.Rows(0)(4)
        frmSocio.txtPiso.Text = direResultado.Rows(0)(5)

        Dim clubResultado As New Data.DataTable
        clubResultado = consulta.ConsultarTablaXId("club", dgvSocios.Rows(e.RowIndex).Cells(7).Value)
        frmSocio.cmbClub.Text = direResultado.Rows(0)(1)

        frmSocio.ckbEsJugador.Checked = Me.dgvSocios.Rows(e.RowIndex).Cells(8).Value
        frmSocio.dtpFechaAlta.Text = Me.dgvSocios.Rows(e.RowIndex).Cells(9).Value

        frmSocio.habilitaTextbox(True)
        frmSocio.habilitaBotones(False)
        Me.Hide()
    End Sub

    Private Sub dgvSocios_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvSocios.CellContentClick

    End Sub
End Class